home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / homeimpr.sit / Home Improvements / card_2949.txt < prev    next >
Text File  |  1988-09-19  |  2KB  |  108 lines
  1. -- card: 2949 from stack: in
  2. -- bmap block id: 3184
  3. -- flags: 4000
  4. -- background id: 2604
  5. -- name: begin
  6. ----- HyperTalk script -----
  7. on openStack
  8.   global whereWasI, targetField
  9.   put 0 into whereWasI
  10.   put "theList" into targetField
  11.   pass openStack
  12. end openStack
  13.  
  14. on arrowKey var
  15.   global whereWasI, targetField
  16.   if (the shiftKey is down) AND (var = "down") then
  17.     scrollSelect
  18.   else
  19.     pass arrowKey
  20.   end if
  21. end arrowKey
  22.  
  23. on scrollSelect
  24.   global whereWasI, targetField
  25.   add 1 to whereWasI
  26.   if whereWasI > (the number of lines of card field targetField) then
  27.     put 1 into whereWasI
  28.     set the scroll of card field targetField to 0
  29.   end if
  30.   put the textHeight of card field targetField into tHt
  31.   put the height of card field targetField into fHt
  32.   put whereWasI * tHt - tHt into temp1
  33.   put (the scroll of card field targetField) + fHt into temp2
  34.   if temp1>=temp2 then
  35.     set the scroll of card field "theList" to temp1
  36.   end if
  37.   select line whereWasI of card field "theList"
  38.   if temp1>=temp2 then
  39.     set the scroll of card field "theList" to temp1
  40.   end if
  41.   select line whereWasI of card field "theList"
  42. end scrollSelect
  43.  
  44. on returnKey
  45.   global whereWasI
  46.   put line whereWasI of card field "theList" into thingg
  47.   go to card thingg
  48. end returnKey
  49.  
  50.  
  51. -- part 2 (field)
  52. -- low flags: 01
  53. -- high flags: 0007
  54. -- rect: left=2 top=57 right=210 bottom=166
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 0
  58. -- font id: 3
  59. -- text size: 9
  60. -- style flags: 0
  61. -- line height: 10
  62. -- part name: theList
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   put clickLine() into thisOne
  66.   put the number of lines of card field "theList" into howMany
  67.   if thisOne>howMany then exit mouseUp
  68.   put line thisOne of card field "theList" into dest
  69.   push card
  70.   go to card dest
  71. end mouseUp
  72.  
  73.  
  74. -- part 3 (field)
  75. -- low flags: 01
  76. -- high flags: 0000
  77. -- rect: left=55 top=326 right=341 bottom=157
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 0
  81. -- font id: 3
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: version
  86.  
  87.  
  88. -- part contents for card part 2
  89. ----- text -----
  90. ΓÇó Some General Tips
  91. Chime the Time
  92. ClickLine
  93. ControlKey
  94. FieldHotFingers
  95. FinderList
  96. GeneralInfo
  97. Home Initializations
  98. KeyButtons
  99. Mouse Location
  100. ShowHidden
  101. Shutdown
  102. TextEditor
  103. XCMDs and XFCNs in this stack
  104.  
  105.  
  106. -- part contents for card part 3
  107. ----- text -----
  108. 1.1 - 8/29/88